sampling_radius$radius[is.na(sampling_radius$radius)] <- 300
